home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 June
/
64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64
/
no border.src
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
7KB
|
442 lines
10 +$c000
15 tobgn=$c000
20 ;
100 tosb1=$00;spriteblock 1
101 tosb2=$0a; '' 2
102 tosb3=$14; '' 3
103 tosb4=$1e; '' 4
105 tospp=$4c00+$03f8;spritepointer
107 tosad1=(sb1*$40)+$4140;spriteblockaddresse 1
108 tosad2=(sb2*$40)+$4140; '' 2
109 tosad3=(sb3*$40)+$4140; '' 3
110 tosad4=(sb4*$40)+$4140; '' 4
120 tof1=bgn+$03f0;zwischenspeicher fuer spriteinhalt
130 tof2=bgn+$03f3; ''
140 tof3=bgn+$03f6; ''
150 tof4=bgn+$03f9; ''
155 tot1=bgn+$03ff;zwischenspeicher fuer tab
160 tovib=$96;bank $4000-$8000 ($dd00)
170 toscreen=32+16+8;bildram bei $0c00 und hires bei $2000 (+vib)
180 tohir=$00;hires off
190 tomul=$00;multi off
999 ;
1000 (NULL)
1010 (NULL)sresc;spriteinhalt bergen
1020 (NULL)sinit;sprites initialisiern
1030 mid$#<(int1);neue interruptaddresse
1040 (NULL)$0314
1050 mid$#>(int1)
1060 (NULL)$0315
1070 mid$#vib;vic-bank
1080 (NULL)$dd00
1090 mid$#screen;bildram
1100 (NULL)$d018
1110 mid$#$1b+hir;bitmap
1120 (NULL)$d011
1130 mid$#$c8+mul;multi
1140 (NULL)$d016
1142 mid$#76;bildram highbyte
1144 (NULL)$288
1146 mid$#$00;geisterbyte
1148 (NULL)$3fff+$4000;loeschen
1150 mid$#$2f;rasterzeile fuer vic-interupt
1160 (NULL)$d012
1170 mid$#$7f;bis auf vic alle interuptquellen
1180 (NULL)$dc0d;stillegen
1190 mid$#$00
1200 (NULL)$dc0e
1210 mid$#$01
1220 (NULL)$d01a;und auf geht's
1230 (NULL)
1240 (NULL)
1250 ;
1260 ;
1300 int1 len#$0a;verzoegerung
1310 b1310 (NULL)
1320 (NULL)b1310
1330 (NULL)
1332 right$t1
1334 chr$t1
1336 (NULL)
1340 (NULL)line;sideborder ausblenden
1350 (NULL)sit2;sprites neu initialisiern
1360 (NULL)srestore;sprites wiederherstellen
1370 mid$#$01
1380 (NULL)$d019
1390 mid$#$1b+hir
1400 (NULL)$d011
1410 mid$#$2f
1420 (NULL)$d012
1430 (NULL)$ea31;und normaler irq
1440 ;
1500 line
1510 (NULL)l1
1520 (NULL)l2;uebergang von zeile -1 nach 0 (bildschirm)
1530 (NULL)l1
1540 (NULL)l1
1550 (NULL)l1
1560 (NULL)l1
1570 (NULL)l1
1580 (NULL)l1;zeile 6
1590 (NULL)l2;zeile 7+8
1600 (NULL)l3;neue sprites+skoordinaten (1)
1610 (NULL)l1
1620 (NULL)l1
1630 (NULL)l1
1640 (NULL)l1
1650 (NULL)l1;zeile 14
1660 (NULL)l4;zeile 15+16 sowie neue zeiger fuer sprites
1670 (NULL)l1
1680 (NULL)l1
1690 (NULL)l1
1700 (NULL)l1
1710 (NULL)l1
1720 (NULL)l1
1730 (NULL)l2;zeile 23+24
1740 (NULL)l1
1750 (NULL)l1
1760 (NULL)l1
1770 (NULL)l1
1780 (NULL)l1
1790 (NULL)l1
1800 (NULL)l2;zeile 31+32
1810 (NULL)l3;neue sprites+skoordinaten (2)
1820 (NULL)l1
1830 (NULL)l1
1840 (NULL)l5;neue spritezeiger
1850 (NULL)l1
1860 (NULL)l1
1870 (NULL)l2;zeile 39+40
1880 (NULL)l1
1890 (NULL)l1
1900 (NULL)l1
1910 (NULL)l1
1920 (NULL)l1
1930 (NULL)l1
1940 (NULL)l2;zeile 47+48
1950 (NULL)l3;neue sprites+skoordinaten (3)
1960 (NULL)l1
1970 (NULL)l1
1980 (NULL)l1
1990 (NULL)l1
2000 (NULL)l1
2010 (NULL)l2;zeile 55+56
2020 (NULL)l5;neue spritezeiger
2030 (NULL)l1
2040 (NULL)l1
2050 (NULL)l1
2060 (NULL)l1
2070 (NULL)l1
2080 (NULL)l2;zeile 63+64
2090 (NULL)l1
2100 (NULL)l1
2110 (NULL)l1
2120 (NULL)l1
2130 (NULL)l1
2140 (NULL)l1
2150 (NULL)l2;zeile 71+72
2160 (NULL)l3;neue sprites+skoordinaten (4)
2170 (NULL)l1
2180 (NULL)l1
2190 (NULL)l1
2200 (NULL)l1
2210 (NULL)l5;neue spritezeiger
2220 (NULL)l2;zeile 79+80
2230 (NULL)l1
2240 (NULL)l1
2250 (NULL)l1
2260 (NULL)l1
2270 (NULL)l1
2280 (NULL)l1
2290 (NULL)l2;zeile 87+88
2300 (NULL)l1
2310 (NULL)l1
2320 (NULL)l1
2330 (NULL)l1
2340 (NULL)l1
2350 (NULL)l1
2360 (NULL)l2;zeile 95+96
2370 (NULL)l3;neue sprites+skoordinaten (5)
2380 (NULL)l1
2390 (NULL)l5;neue spritezeiger
2400 (NULL)l1
2410 (NULL)l1
2420 (NULL)l1
2430 (NULL)l2;zeile 103+104
2440 mid$sad1+$40;1.reihe der
2450 (NULL)sad1;spritereihe 7 zur
2460 mid$sad1+$41;1.reihe der spritereihe 6 umpoken
2470 (NULL)sad1+1
2480 mid$sad1+$42
2490 (NULL)sad1+2;spritespalte 1
2500 (NULL)l11
2510 mid$sad2+$40;1.reihe der
2520 (NULL)sad2;spritereihe 7 zur
2530 mid$sad2+$41;1.reihe der spritereihe 6 umpoken
2540 (NULL)sad2+1
2550 mid$sad2+$42
2560 (NULL)sad2+2;spritespalte 2
2570 (NULL)l11
2580 mid$sad3+$40;1.reihe der
2590 (NULL)sad3;spritereihe 7 zur
2600 mid$sad3+$41;1.reihe der spritereihe 6 umpoken
2610 (NULL)sad3+1
2620 mid$sad3+$42
2630 (NULL)sad3+2;spritespalte 3
2640 (NULL)l11
2650 mid$sad4+$40;1.reihe der
2660 (NULL)sad4;spritereihe 7 zur
2670 mid$sad4+$41;1.reihe der spritereihe 6 umpoken
2680 (NULL)sad4+1
2690 mid$sad4+$42
2700 (NULL)sad4+2;spritespalte 4
2710 (NULL)l11
2720 (NULL)l1
2730 (NULL)l1
2740 (NULL)l2;zeile 111+112
2750 (NULL)l3;neue sprites+skoordinaten (6)
2760 (NULL)l1
2770 (NULL)l1
2780 (NULL)l1
2790 (NULL)l1
2800 (NULL)l1
2810 (NULL)l2;zeile 119+120
2820 (NULL)l5;neue spritezeiger
2830 (NULL)l1
2840 (NULL)l1
2850 (NULL)l1
2860 (NULL)l1
2870 (NULL)l1
2880 (NULL)l2;zeile 127+128
2890 (NULL)l1
2900 (NULL)l1
2910 (NULL)l1
2920 (NULL)l1
2930 (NULL)l1
2940 (NULL)l1
2950 (NULL)l2;zeile 135+136
2960 (NULL)l3;neue sprites+skoordinaten (7)
2970 (NULL)l1
2980 (NULL)l1
2990 (NULL)l1
3000 (NULL)l5;neue spritezeiger
3010 (NULL)l1
3020 (NULL)l2;zeile 143+144
3030 (NULL)l1
3040 (NULL)l1
3050 (NULL)l1
3060 (NULL)l1
3070 (NULL)l1
3080 (NULL)l1
3090 (NULL)l2;zeile 151+152
3100 (NULL)l1
3110 (NULL)l1
3120 (NULL)l1
3130 (NULL)l1
3140 (NULL)l1
3150 (NULL)l1
3160 (NULL)l2;zeile 159+160
3170 (NULL)l3;neue sprites+skoordinaten (8)
3180 (NULL)l5;neue spritezeiger
3190 (NULL)l1
3200 (NULL)l1
3210 (NULL)l1
3220 (NULL)l1
3230 (NULL)l2;zeile 167+168
3240 (NULL)l1
3250 (NULL)l1
3260 (NULL)l1
3270 (NULL)l1
3280 (NULL)l1
3290 (NULL)l1
3300 (NULL)l2;zeile 175+176
3310 (NULL)l3;neue sprites+skoordinaten (9)
3320 (NULL)l1
3330 (NULL)l1
3340 (NULL)l1
3350 (NULL)l1
3360 (NULL)l1
3370 (NULL)l4;zeile 183+184 sowie neue zeiger fuer sprites
3380 (NULL)l1
3390 (NULL)l1
3400 (NULL)l1
3410 (NULL)l1
3420 (NULL)l1
3430 (NULL)l1
3440 (NULL)l2;zeile 191+192
3450 (NULL)l1
3460 (NULL)l1
3470 (NULL)l1
3480 (NULL)l1
3490 (NULL)l1
3500 mid$#$13+hir
3510 (NULL)$d011;unteren bildschirmrand ausblenden
3520 (NULL)
3530 (NULL)
3540 (NULL)
3550 (NULL)
3560 (NULL)
3570 (NULL)
3580 (NULL)
3590 (NULL)l12
3600 (NULL)l1
3610 (NULL)
3620 ;
9999 ;
10000 sresc peek#$02;1.zeile der spritereihe 6
10010 b10010 mid$sad1,x;nach $c3f0-$c3fb zwischen-
10020 (NULL)f1,x;speichern , da diese
10030 mid$sad2,x;zweifach benutzt wird
10040 (NULL)f2,x
10050 mid$sad3,x
10060 (NULL)f3,x
10070 mid$sad4,x
10080 (NULL)f4,x
10090 (NULL)
10100 (NULL)b10010
10110 (NULL)
10120 ;
10130 sinit mid$#$0f;farbe
10140 (NULL)$d02b
10150 (NULL)$d02c
10160 (NULL)$d02d
10170 (NULL)$d02e
10180 mid$#$0c;multicolor 1
10190 (NULL)$d025
10200 mid$#$0b;multicolor 2
10210 (NULL)$d026
10220 mid$#$ff;multicolor on/off
10230 (NULL)$d01c
10240 mid$#$00;expand off
10250 (NULL)$d01d; fuer x
10260 (NULL)$d017; fuer y
10265 mid$#$f0;sprites 4-7 ein
10266 (NULL)$d015
10270 mid$#$e0;x-koordinaten
10280 (NULL)$d008
10290 mid$#$00
10300 (NULL)$d00a
10310 mid$#$58
10320 (NULL)$d00c
10330 mid$#$70
10340 (NULL)$d00e
10350 mid$#$d0;bit 8 fuer x-koordinaten
10360 (NULL)$d010
10370 sit2 mid$#sb1;spritepointer festlegen
10380 (NULL)spp+4
10390 mid$#sb2
10400 (NULL)spp+5
10410 mid$#sb3
10420 (NULL)spp+6
10430 mid$#sb4
10440 (NULL)spp+7
10450 mid$#$2d;y-koordinate fuer die ersten 4 sprites
10460 (NULL)$d009
10470 (NULL)$d00b
10480 (NULL)$d00d
10490 (NULL)$d00f
10500 (NULL)
10510 ;
10600 srestore peek#$02;urspruengliche zeile 1 der
10610 b10610 mid$f1,x;spritereihe 6 wiederherstellen
10620 (NULL)sad1,x
10630 mid$f2,x
10640 (NULL)sad2,x
10650 mid$f3,x
10660 (NULL)sad3,x
10670 mid$f4,x
10680 (NULL)sad4,x
10690 (NULL)
10700 (NULL)b10610
10710 (NULL)
10720 ;
20000 +$c400
20001 ;
20002 l1
20010 mid$$d012;neuen y-koordinatenpointer
20020 (NULL);fuer tab berechnen
20030 (NULL)#$32;und
20040 (NULL)
20050 (NULL);in
20060 (NULL)
20070 (NULL)
20080 (NULL)t1;$c3ff zwischenspeichern
20090 l12 mid$#$c8+mul
20100 peek#$c7+mul
20110 l11 len#$00
20120 (NULL)
20130 chr$$d016;border aus
20140 right$$d016
20150 (NULL)
20160 ;
20170 ;
21000 l2
21010 mid$#$c8+mul
21020 peek#$c7+mul
21030 len#$00
21040 (NULL)
21050 (NULL)
21060 (NULL)
21070 (NULL)
21080 (NULL)
21090 (NULL)
21100 (NULL)
21110 (NULL)
21120 (NULL)
21130 (NULL)
21140 (NULL)
21150 (NULL)
21160 (NULL)$d016;border aus
21170 (NULL)$d016,y
21180 (NULL)$d016
21190 (NULL)$d016
21200 (NULL)
21210 (NULL)
21220 ;
21230 ;
22000 l3
22010 peekt1;neu y koordinaten
22020 mid$tab,x;fuer sprites
22030 (NULL)$d009;aus tabelle holen
22040 (NULL)$d00b
22050 (NULL)$d00d
22060 (NULL)$d00f
22070 (NULL)
22080 (NULL)
22090 chr$$d016;border aus
22100 right$$d016
22110 (NULL)
22120 ;
22130 ;
23000 l4
23010 right$spp+4;neue spritepointer
23020 right$spp+5
23030 right$spp+6
23040 right$spp+7
23050 mid$#$c8+mul
23060 peek#$c7+mul
23070 len#$00
23080 (NULL)$d016;border aus
23090 (NULL)$d016,y
23100 (NULL)$d016
23110 (NULL)$d016
23120 (NULL)
23130 (NULL)
23140 ;
24000 l5
24010 right$spp+4;neue spritepointer
24020 right$spp+5
24030 right$spp+6
24040 right$spp+7
24050 (NULL)
24060 (NULL)
24070 chr$$d016;border aus
24080 right$$d016
24090 (NULL)
24100 ;
30000 ;tabelle fuer y-koordinaten der sprites
30010 tab
30020 fn$42,$57,$6c,$00
30030 fn$81,$96,$ab,$00
30040 fn$c0,$d5,$ea